home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_08_1985_Transactor_Publishing.d64 / hi-res text demo (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  843b  |  48 lines
  1. 100 rem sample program to use hi-res
  2. 110 rem             text
  3. 120 rem darren james spruyt 85/06/01
  4. 130 rem
  5. 140 poke 53281,0 :rem set bg color
  6. 150 sys 32771 :rem clear hi-res screen
  7. 160 sys 32768 :rem turn screen on
  8. 170 rem 820 is overlap reg
  9. 180 rem 821 is color reg
  10. 190 rem 681 is xsize reg
  11. 200 rem 682 is ysize reg
  12. 210 rem 679 is y pos reg
  13. 220 rem 678 is x pos reg
  14. 230 rem 683 is char  reg
  15. 240 for k=1 to 15
  16. 250 a$="the"
  17. 260 poke 821,k*16
  18. 270 poke 681,2
  19. 280 poke 682,2
  20. 290 for j=1 to len(a$)
  21. 300 poke 679,3
  22. 310 poke 678,2+((j-1)*3)
  23. 320 poke 683,asc(mid$(a$,j,1))
  24. 330 sys 32777
  25. 340 next j
  26. 350 poke 681,8
  27. 360 poke 682,9
  28. 370 poke 821,k*16
  29. 380 poke 679,10
  30. 390 poke 678,1
  31. 400 poke 683,asc("t")
  32. 410 sys 32777
  33. 420 for n=1 to 15
  34. 430 a$="ransactor"
  35. 440 poke 681,3
  36. 450 poke 682,2
  37. 460 for j=1 to len(a$)
  38. 470 c=n+(j-1):if c>15 then c=c-15
  39. 480 poke 821,c*16
  40. 490 poke 679,14
  41. 500 poke 678,7+((j-1)*3)
  42. 510 poke 683,asc(mid$(a$,j,1))
  43. 520 sys 32777
  44. 530 next j
  45. 540 next n
  46. 550 next k
  47. 560 sys 32774
  48.